﻿Imports System.Collections.ObjectModel

Class CBitacora

    Private Sub CargarBitacora()
        Dim negocioLiq As New CLiquidezServicio()
        Dim sFechaIni As String 
        Dim sFechaFin As String 

        Try        

          sFechaIni =   String.Format(Me.fechaInicio.Text,"yyyy-MM-dd") & " " & String.Format ( Me.tiempoInicio.HoraCompleta ,"HH:mm:ss")
          sFechaFin  =  String.Format(Me.fechaFin.Text,"yyyy-MM-dd") & " " & String.Format ( Me.tiempoFin.HoraCompleta ,"HH:mm:ss")
            
          Me.grdDatosBit.ItemsSource = negocioLiq.ObtenerRegistrosBitacora (Convert.ToDateTime(sFechaIni), Convert.ToDateTime ( sFechaFin),true)
                                             
          Me.grdDatosBit.UpdateLayout ()
            
        Catch ex As Exception
            MessageBox.Show("Error TI500. No existe información para los criterios introducidos:" & ex.Message, "Carga de bitácora", MessageBoxButton.OK, MessageBoxImage.Exclamation)
        End Try

    End Sub

    Public Sub New()

        InitializeComponent()        
        InicializarFechaHora () 
         Mouse.OverrideCursor = Nothing         
    End Sub



    Private Sub InicializarFechaHora () 

        Me.fechaInicio.Text = Date.Now.ToString ("dd/MM/yyyy") 
        Me.tiempoInicio.txtHora.Text  = "00"
        Me.tiempoInicio.txtMinuto.Text = "00" 
        Me.tiempoInicio.txtSegundo.Text = "00" 

        Me.fechaFin.Text = Now.ToString ("dd/MM/yyyy") 
        Me.tiempoFin.txtHora.Text  = Date.Now.Hour.ToString("0#")   
        Me.tiempoFin.txtMinuto.Text = Date.Now.Minute.ToString ("0#") 
        Me.tiempoFin.txtSegundo.Text = "00" 


    End Sub



Private Sub imgConsultar_MouseLeftButtonUp(ByVal sender As System.Object , ByVal e As System.Windows.Input.MouseButtonEventArgs) Handles imgConsultar.MouseLeftButtonUp
         CargarBitacora()
End Sub

Private Sub imgLimpiar_MouseLeftButtonUp(ByVal sender As System.Object , ByVal e As System.Windows.Input.MouseButtonEventArgs) Handles imgLimpiar.MouseLeftButtonUp
       InicializarFechaHora () 
End Sub

end Class
